Option Explicit
Sub A_Sample062()
    Dim myWb  As Workbook
    With Workbooks
    	Set myWb = .Item(.Count)
    End With
    MsgBox myWb.Name
    Set myWb = Nothing	'
End Sub
